Celestin Apprentice 4

home *** CD-ROM | disk | FTP | other *** search

/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler6.Obj < prev next >

Wrap

Text File | 1995-08-14 | 9.2 KB | 9 lines | [TEXT/.Ob4]

¯6Fˇÿ ∞¸„6“¥-Kepler6ÇÒ—¢ﬂ§JÉNewCRSpline§NewBezierﬂNewClosedCRSplineNewClosedBezierJÑÖ<ÒÇKeplerPorts;‚ÜDisplay;‚WêFonts6–çÜKeplerGraphs6e∏uFiles6– µKeplerFrames"…}nMathÜˇˇ›˛–ˇ5˛eˇ˝˚ˇ=˝zˇ˝[ˇ8¸`ˇˇ˘K˘Zá@@@@@@C0ÄC0?Ä@?Ä@@?Ä@@@@??Ä@@?Ä@@@@C0?5Ü7Ωàø°ˇÙî!ˇ∏;·8;√;§|ûË@‰8~C‡C‡8}C‡‡Ä!ª°ˇÙO‡ ø°ˇÙî!ˇ∏;·8;√;§Ë@¯8}C‡C‡8~C‡‡Ä!ª°ˇÙO‡ |¶øaˇÏ9ÅˇàHêî!ˇ8;·@êAˇ‡êˇ¿êˇ†êˇÄ êˇ`(êˇ@0êˇ 8êˇ@ê¸ ˙¿Bˇ‘ˇÅ@¸Ë¸`Ú¿Çˇ‘¸É @‰<®¿®ü»KˇˇÄü–∞d®ø¿®ﬂ»|Â0|ËΔp} :x}HHÅÿ±KC‡ú¿¢ˇ–Ï≈rÓÊ$Ï˜˜˙Ó∑ÚÌ®*Ì7‚:˝@éˇ¿Lˇ‡L…bˇ»˝ãH*ŸÇ¸Ué´¬®¿êˇ¸®»0ûˇˇKˇ˛ù8ÉÄˇ¸Kˇ˛ëÅü–∞l®¿êˇ¸®»0ûKˇ˛µ8ÉÄˇ¸Kˇ˛©Äü–®§|≈Äˇÿ∞«C‡¿¡¢ˇƒÏ rÏ ÚÓﬁ∏¿Bˇ¿ˇ@¯<®¿®ü»Kˇ˛)Å–∞h©?¿©_»}iP}lΔp}ÉZx|åÄøÿ∞ÖC‡l¸ ∞êÄBˇÙHÄA˛¿ê¸`PÏÉ∞(¿¢ˇºÏƒ($ÓÊ¯$¿‚ˇ∏ˇó8@˝D¡ˇ¥¸ó@@‰8Ì7˜˙Ó∑rÌ]®*Ìw‚∫˝Äéˇ¿Lˇ‡L…¢ˇ»¸ X*ÿ¸eé´¬C‡´ﬂ¿¸ PÏA∞*¿bˇ∞ÏÇ$Ó‰¯$¿¢ˇ¨ˇ(@˘D¿¬ˇ®ˇó0@¸8Ï˜˜˙Ó∑ÚÌ®*Ì7‚:˝@éˇ¿Lˇ‡L…bˇ»˝ãH*ŸÇ¸Ué´¢C‡´ø¿®¿êˇ¸®»êˇ¯8~8ùKˇ˝8√Äˇ¯0ÜˇˇKˇ¸ı8ÉÄˇ¸Kˇ¸ÈÄˇ–∞g®¿êˇ¸®»êˇ¯8~8ùKˇ˝9Äˇ¯0àKˇ¸ı8ÉÄˇ¸Kˇ¸ÈÅ?–©I}jÅüÿ±l˝†⁄¿ˇ‘¸ç@‰Ë¸ “¿Bˇ‘ˇ@¯<®ƒ®üÃKˇ¸iÄü‘∞d®øƒ®ﬂÃ|Â0|ËΔp} :x}HHÅ‹±KC‡ú¿bˇ§ÏÉrÓ‰–$Ï∑÷˙Ó∑rÏŸ®*Ï˜¡∫˝éˇ¿Lˇ‡L…"ˇ»˝I8*ŸB¸Eé´Ç®ƒêˇ¸®Ã0ûˇˇKˇ˚Ì8ÉÄˇ¸Kˇ˚·Åü‘∞l®ƒêˇ¸®Ã0úKˇ¸8ÉÄˇ¸Kˇ˚˘Äü‘®§|≈Äˇ‹∞«C‡¿¡bˇ†ÌãrÌ¨ÚÓ⁄n∏¿ˇúˇñ@¸<®ƒ®üÃKˇ˚yÅ‘∞h©?ƒ©_Ã}iP}lΔp}ÉZx|åÄø‹∞ÖC‡l¸ ∞êÄBˇÙKˇ˝ÒÄA˛¿ê¸ –PÏA∞(¿bˇòÏÇ$Ó‰ÿ$¿¢ˇî¸ó(@ÂD¿¬ˇêˇ0@¯8Ï˜÷˙Ó∑ÚÌ®*Ì7¬:˝@éˇ¿Lˇ‡L…bˇ»˝ãH*ŸÇ¸Ué´ÇC‡´üƒ˝†–PÏ ∞*¿"ˇåÏ@$Ó‚ÿ$¿bˇàˇó@˝D¿ÇˇÑ¸ó @‰8Ï∑÷˙Ó∑rÏŸ®*Ï˜¡∫˝éˇ¿Lˇ‡L…"ˇ»˝I8*ŸB¸Eé´bC‡´ƒ®ƒêˇ¸®Ãêˇ¯8|8õKˇ˙U8√Äˇ¯0ÜˇˇKˇ˙E8ÉÄˇ¸Kˇ˙9Äˇ‘∞g®ƒêˇ¸®Ãêˇ¯8|8õKˇ˙U9Äˇ¯0àKˇ˙E8ÉÄˇ¸Kˇ˙9Å?‘©I}jÅü‹±lÄ–®É0§ˇ˛∞£Äﬂ‘®Ê1ˇ˛±Å?ÿ©I1j±iÅü‹®l0É∞åÄêÄ!9ÅˇàH|¶ªaˇÏO‡ |¶ø!ˇ‰êî!ˇ†;·8êA;√;§;Ö;f;G8~8ùÄ£ˇ¸Äˇ¥| ¶ÄEˇ∏O‡!ÄA;£8~8úÄ√ˇ¸Äˇ¨| ¶ÄFˇ∞O‡!ÄA;Éû®˛á{:◊@‡3{ˇˇû©àZB◊@‡3Zˇˇ=⁄û©> Ë@˘û´æûû©^©~}äZå»@¸ ûû®~®û|£"}(C‡}»,õAÂ8`C‡p<“û®ﬁ ‡@˘û´û ûû®˛ ©}'Bâ»@¸ ûû©^ ©~}äZ\`C‡\»,ö|`&Tc7˛C‡‡Ä0Ä!|¶ª!ˇ‰O‡ |¶øaˇÏ9Åˇ»Hêî!ˇÄ;·@êAˇ‡êˇ¿êëˇ¸Äüˇ¸¡d$Äøˇ¸¡Ö(Ìøb˙Äﬂˇ¸¿,Ï?zÄˇˇ¸¿G0Ïz¸Äéˇ¿Lˇ‡L»¢ˇ»¸≈*ÿ¬¸%é´¬Åˇ¸¿Ë$Å?ˇ¸¡ (Ì>A˙Å_ˇ¸¡J,Ì~RzÅˇ¸¡ã0Ìæb˙¸éˇ¿Lˇ‡L»"ˇ»¸Ah*ÿB¸é´¢Åüˇ¸¿l4Äˇ¸¿É8Ïø ˙Äüˇ¸¿ƒ<Ïˇ1zÄøˇ¸¡@Ì?A˙˝@éˇ¿Lˇ‡L…bˇ»˝ãH*ŸÇ¸Ué´ÇÄﬂˇ¸¡¶4Äˇˇ¸¿8Ï>zÅˇ¸¿H<Ï~zÅ?ˇ¸¿â@Ïæ ˙¸¿éˇ¿Lˇ‡L»‚ˇ»˝(*Ÿ¸5é´b}^Ë}KΔp}lRx|k`|úÿ|ÖΔp|¶"x|Â0}:Å?ˇ¸ÅI ä©jUl<`A˘@Äˇ¸Äc 8û8º8›8˚99 ÅCˇ¸Ä ˇÑ| ¶ÄJˇàO‡!ÄAC‡0Ì?*¡BˇÄÔ©P$¸ ¯ê¸@ËêÅˇ¸Kˇ˛¸ Ëê¸@êÅˇ¸Kˇ˛ÄHÄ!9Åˇ»H|¶ªaˇÏO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAê –?$–_(–,–ü0–ø4–ﬂ8–ˇ<—@¿"ˇ|¿Bˇx9Kˇ˝ôÄÄ!|¶ª·ˇ¸O‡ |¶øÅˇ9Åˇ®Hêî!ˇ(;·XêA;√;§ûÅ~ãûÅûå®lÉ®´Ñ(ûÄﬁÜ®Ê}<BûÅ^ä©j}ãHmÉÄêbˇt…bˇp…Çˇh˝´`(¿ˇdÔÌ$ûÄûÑ®§|≈–ûÄ˛á©U :ÜJûÅ^ä©jã|l‡ûÄûÑ®§T¶<|„2lËÄëˇt»"ˇp»Bˇh¸a(¿Çˇ`Ô√ $ûÅ>âûÅ^ä©j©â|k`ldÄêÇˇt»¢ˇp»¬ˇh¸Â0(¡ˇ\Ôß@$ûÄæÖ®≈l«Äê‚ˇt…"ˇp…BˇhˇâP(ûÅàûÅ>â©Ij©àã`ûÄ~É®É§|‹*ûÄ˛á©}(0m*ÄëBˇt…bˇp…Çˇh˝´`(¿ˇXÔm$ûÅ~ã©ã|l–ûÄûÑ®§T¶:É2ûÄ˛á©(}I‡ûÅ~ã©ãUÉ<|älÖÄê¢ˇt»"ˇp»Bˇh¸a(¿ÇˇTÔC $ûÄﬁÜûÄ˛á©©&}HHmKÄëbˇt»¢ˇp»¬ˇh¸Â0(¡ˇPÔ'@$ûÅûå®lldÄêÇˇt…"ˇp…Bˇhˇ P(¸ ¯ê¸@ê¸`Ëê¸Ä‡ê¸†ÿê¸¿–ê¸‡»ê˝¿êûÄæÖ®≈∞¡8ûÄ˛á©±<ûÅ>â©I±A@ûÅ~ã©ã±ÅD8 êaH8ü"êÅL8ø$ê°P8ﬂ&ê¡TKˇÚ©Ä˝ˇ¸Åˇ‹Å(ˇÙÅGˇäH@˛<8}®ü ®ø"®ﬂ$®ˇ&99 Åcˇ¸Äˇ|| ¶ÄKˇÄO‡!ÄAC‡L8}®ü ®ø"®ﬂ$®ˇ&Kˇ¯=,ÉAÊ,8}¸ ¯ê¸@ê¸`Ëê¸Ä‡ê¸†ÿê¸¿–ê¸‡»ê˝¿êKˇ˚πÄàÄ!9Åˇ®H|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†ÅÇˇ®l/A¯ÄÄbˇ¯ÄBˇÿHÄA;√û8Ä∞ûû8~ÄBˇHÄAû8~ÄBˇKˇÒÄAû8~ÄBˇKˇÒÄAû8~ÄBˇKˇÌÄAÄ¢ˇÄe8ûÄ√ˇ¸Äˇî| ¶ÄFˇòO‡!ÄAÄ‚ˇ©/à@˝‹Äbˇ¯ÄBˇÿKˇÒ9ÄA;£ù9 ±=ùûÅ^ë]ùÅ}ã©ã0l∞kùûÄûêùùÄΩÖ®≈0Ê∞ÂùûÅëùÅ=â©I1j±iù8}ÄBˇKˇŸÄA;›ÅÇˇÄl8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAC‡ˇÄ Ä!|¶ª°ˇÙO‡ |¶øÅˇêî!ˇ†;·8êA;¿;†ìøìøìøÄ¬ˇ®Ê,áA‰®Äbˇ¯ÄBˇÿKˇïÄA;√û9±û8~ÄBˇKˇÔ˘ÄAûÅ>ë?û8~ÄBˇKˇÔIÄAûÅ^ë_û8~ÄBˇKˇÔ)ÄAûÅ~ëû8~ÄBˇKˇÔ ÄAÅÇˇÄl8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ¬ˇ®Ê/@˘‹Äbˇ¯ÄBˇÿKˇÔmÄA;£ù9±ùûÅ>ë=ùÅ]ä©j1ã±äùûÄ~ê}ùÄùÑ®§0≈∞ƒùûÄ˛ê˝ùÅà©(1I±Hù8}ÄBˇKˇÓÈÄA;›ÅbˇÄk8ûÅÉˇ¸Äˇî| ¶ÄLˇòO‡!ÄAC‡ˇ;Ä/úA˝¸Äbˇ¯ÄBˇÿKˇÓ•ÄA;£ù8`∞}ùûÄûêùùÄΩÖ®≈0Ê∞ÂùûÅëùÅ=â©I1j±iùûÅûëùùÄ}É®É0§∞£ùºWÜ:|ˇ2ÅëùÅ=â©I1j±i;›ÅÇˇÄl8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄA3úC‡ˇÄ0Ä!|¶ªÅˇO‡ |¶æÅˇ–êî!ˇX;·XêA;√;§ûÄﬁÜ®ÊûÅ>â©Ij~ã@ûÅûå®lÉ|¥"ûÄﬁÜ®Êá(ûÅà©(I}j–ûÅûå®lÉ~ã"ûÄæÖ®≈Ê}†ûÅ>â©IjhZûÅûåûÄ~É®É®¨|ƒ(FûÉ>ô´9ûÄ˛á©(ûÅ^ä©jã~åHûÄ~É®É§|‘*ûÄ˛á©0ûÅ>â©Ij}ã–ûÄ~É®É§~å*ûÄﬁÜ®Ê}(†ûÅ^ä©jã~ÈbûÄ~ÉûÄûÑ®§®√|Â0«ûÇæï™µoàÄëˇt…bˇp…Çˇh¸+`(oiÄë"ˇt…¢ˇp»ˇh¸M(oJÄëBˇt»bˇp»Çˇh¸c (o+Äëbˇt»¢ˇp»¬ˇh¸Ö0(oÄëÇˇt»‚ˇp…ˇh¸ß@(n„Äêbˇt…"ˇp…Bˇh¸…P(nƒÄêÇˇt…bˇp…Çˇh¸Î`(n•Äê¢ˇt…¢ˇp»ˇh˝ (ûÄﬁÜ®Ê∞·8ûÅà©(±!<}\⁄}j“}ã ±Å@|x∫|É≤|§™∞°D8ﬂê¡H8ˇê·L9ëP9?ë!TKˇÍ5Å]ˇ¸Åbˇ‹ÅãˇÙÄjˇ|É`@Ê<8}®ü®ø®ﬂ®ˇ99 ÅCˇ¸Ä ˇ|| ¶ÄJˇÄO‡!ÄAC‡Ã8}®ü®ø®ﬂ®ˇKˇÔ…/A˙¨8}oãÄëbˇt»"ˇp»Bˇh¸!(olÄëÇˇt»bˇp»Çˇh¸C (oDÄêÇˇt»¢ˇp»¬ˇh¸e0(o%Äê¢ˇt»‚ˇp…ˇh¸á@(oÄê¬ˇt…"ˇp…Bˇh¸©P(nÁÄê‚ˇt…bˇp…Çˇh¸À`(n»Äëˇt…¢ˇp»ˇh¸Ì(n©Äë"ˇt…ˇp…"ˇh˝H(KˇÚ≈ÄXÄ!|¶∫Åˇ–O‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†ÅBˇ©j/ãA¸lÄbˇ¸ÄBˇÿKˇÌ¡ÄA;√û9Ä±ûû8~ÄBˇKˇÓ ÄAû8~ÄBˇKˇË)ÄAû8~ÄBˇKˇËÄAû8~ÄBˇKˇËÄAÄbˇÄc8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ¬ˇ®Ê,á@Â»Äbˇ¸ÄBˇÿKˇËMÄA;£ù9±ùûÅ>ë=ùÅ]ä©j1ã±äùûÄ~ê}ùÄùÑ®§0≈∞ƒù8}ÄBˇKˇÁÌÄAù8}ÄBˇKˇÁ5ÄA;›Ä‚ˇÄg8ûÅˇ¸Äˇî| ¶ÄHˇòO‡!ÄAC‡ˇ0Ä Ä!|¶ª°ˇÙO‡ |¶øÅˇêî!ˇ®;·8êA;¿;†;ÄÅ"ˇ©I/ A¯XÄbˇ¸ÄBˇÿKˇÁ©ÄA;√;û;æû9`±~û8~ÄBˇKˇÁ!ÄAû8~ÄBˇKˇÊqÄAû8~ÄBˇKˇÊ]ÄAû8~ÄBˇKˇÊIÄAÅÇˇÄl8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ¬ˇ®Ê/á@˝»Äbˇ¸ÄBˇÿKˇÊùÄA;£ù9±ùûÅ>ë=ùÅ]ä©j1ã±äùûÄ~ê}ùÄùÑ®§0≈∞ƒù8}ÄBˇKˇÊ5ÄAù8}ÄBˇKˇÂ}ÄA;›Ä‚ˇÄg8ûÅˇ¸Äˇî| ¶ÄHˇòO‡!ÄAC‡ˇ0Äbˇ¸ÄBˇÿKˇÂÒÄA;√û9 ±>ûùÅ]ë^ûÅ~ã©ã0l∞kûùÄùêûûÄæÖ®≈0Ê∞ÂûúÅëûÅ>â©I1j±iûúÅúëûûÄ~É®É0§∞£Ä¬ˇÄf8ûÄ„ˇ¸Äˇî| ¶ÄGˇòO‡!ÄAÄ(Ä!|¶ªÅˇO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇÙBezierDescˇ¯ˇÙCRSplineDescäºæ¬ƒ…Õœ–÷◊„ÁÈÍÒ¸d¨ÆØ±∂∏ºæ» Õœ”’Ÿ€ÊËÈÎˆ¯ˇ "&(,.9;<>IKZ\_adfikµ∏Ω¬«ﬁ·‚ÂÁÎÏÔÒıˆ˘˚ˇ(+038;@CZ]^acghkmqruw{ìñóöú†°§¶™´Æ∞¥µ∫ºŸ€ﬁ‡‰ÊÍÏÔÒı˜˚˝ "&(+-1379=?CEFHMOy{~ÄÛ¯˝ "&'*,05^afkpáäãéêîïòöû£∏ªºø¡≈Δ…Àœ–”’Ÿ⁄›ﬂã¯8Min·{a‚{b¯ 8Max·{a‚{b¯üà¿GetBoundingBox£{a0¢{a1°{a2†{a3ß{b0¶{b1•{b2§{b3‹h©{rt®{t™{tempÿw–x¿x1»x2·{x3‚{x4‘yƒy1Ãy2„{y3‰{y4¯Ç(8Intersect ·{fÂ{hÊ{t‰{w‚{x„{y¯ä¿¿DrawRec°{hi†{lo¢{med‚{xhi·{xlo‰{yhi„{ylo¯¢8DrawCurve0a0,a1(a2$a3¿b0<b18b24b3 f¯§ÄÿCRSpline.Draw£{a0¢{a1°{a2†{a3ß{b0¶{b1•{b2§{b3 ‚{f&h ·{s„{t$w x"y¯î8NewCRSpline ·{s ‚{s1¯— (8NewClosedCRSpline„{i ·{s ‚{s1¯ﬂ–ÿBezier.DrawÊ{a0Â{a1‰{a2„{a3Í{b0È{b1Ë{b2Á{b3 ‚{fh ·{sÎ{twxy¯ 8NewBezier ·{s ‚{s1¯Ò 8NewClosedBezier ·{s „{s0 ‚{s1¯¸ 8$$